home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / dragblok.zip / DRAG1-PC.MOD < prev    next >
Text File  |  1991-08-22  |  2KB  |  64 lines
  1.  
  2. ------Make the additions marked with 'DRGxxxxxx' to RBBS-PC.BAS and compile
  3.       normally
  4.  
  5. ===========================================================================
  6.  
  7. '
  8. ' ****  J - COMMAND FROM MAIN MENU (JOIN CONFERENCE)  ***
  9. '
  10. 5300 WasA1$ = ZConfMenu$
  11.      CALL BreakFileName (ZActiveMessageFile$,MsgDrvPath$,WasX$,ZWasY$,ZTrue)
  12.      CALL Talk (12,ZOutTxt$)
  13. 5301 ZStackC = ZTrue
  14.      CALL SubMenu ("What Conference, L)ist, M)ain ([ENTER] Quits)",_
  15.          WasA1$,MsgDrvPath$,_
  16.          "M.DEF","M",ZUserGraphicDefault$,ZTrue,ZFalse,ZFalse,"C.DEF",WasX) ' KG032502
  17.      IF ZWasQ = 0 THEN
  18.         RETURN
  19.      END IF
  20.      IF ZSubParm = -1 THEN _
  21.         RETURN 10595
  22. 5323 WasX = (ZWasZ$ = "M" OR ZWasZ$ = "MAIN")                        ' KG012401
  23.      IF ZWasZ$ = ConfNameSave$ OR (WasX AND ZConfName$ = "MAIN") THEN _ ' KG012401
  24.         CALL QuickTPut1 ("You are already in " + ZWasZ$) : _         ' KG012401
  25.         RETURN _                                                     ' KG012401
  26.      ELSE IF WasX THEN _                                             ' KG012401
  27.              GOTO 5350                                               ' KG012401
  28.      IF NOT ZOK THEN _
  29.         GOTO 5300
  30.      CLOSE 2
  31.  
  32.      ZBlocked = 0                                                      'DRG092191
  33.      CALL CheckForBannedUser(ZBlocked)                                 'DRG092191
  34.      IF ZBlocked = 1 THEN _                                            'DRG092191
  35.          GOTO 5300                                                     'DRG092191
  36.  
  37. '
  38. ' ****  UPDATE PREVIOUS MESSAGE BASE CHECKPOINT RECORD  ***
  39. '
  40. 5324 PrevConfName$ = ZConfName$
  41.  
  42.  
  43. ===========================================================================
  44.  
  45. -------And modify RBBS-VAR.BAS, ( RBBS-VAR.MOD, too, if using ANSIED )
  46.        by inserting the marked line.
  47.  
  48. ===========================================================================
  49.  
  50.  
  51.    COMMON SHARED _
  52.           ZBlocked, _                                                  'DRG092191
  53.           ZAbort, _
  54.           ZAckChar$, _
  55.           ZAcknowledge$, _
  56.           ZActiveBulletins, _
  57.  
  58. ===========================================================================
  59.  
  60. End of Dragon Twit-Block Merge
  61.  
  62. ===========================================================================
  63.  
  64.